home *** CD-ROM | disk | FTP | other *** search
/ CU Amiga Super CD-ROM 2 / CU Amiga Magazine's Super CD-ROM 02 (1996)(EMAP Images)(GB)[!][issue 1996-04].iso / magazine / amiga_e / ged-e / ec_loadlnk.rexx < prev    next >
OS/2 REXX Batch file  |  1994-11-03  |  2KB  |  43 lines
  1. /* $VER: 0.9, ©1994 BURGHARD Eric.                                     */
  2. /*      Load EPP source associated with current source if possible     */
  3.  
  4. options results                             /* enable return codes     */
  5.                                             /* not started by GoldEd ? */
  6. if (LEFT(ADDRESS(), 6) ~= "GOLDED") then address 'GOLDED.1'
  7. 'LOCK CURRENT QUIET'                        /* lock GUI, gain access   */
  8. if rc then exit
  9. options failat 6                            /* ignore warnings         */
  10. signal on syntax                            /* ensure clean exit       */
  11.  
  12. 'QUERY FILE PATH USER1 USER2 ANYTEXT'
  13. parse var result name ' ' path ' ' optcdisk ' ' optmac ' ' anytext
  14. if (anytext=='TRUE') then do
  15.   'FIND STRING="PMODULE " FIRST QUIET'
  16.   if (rc==0) then do
  17.     if upper(right(name,2))='.E' then do
  18.       if upper(right(name,6))~='_LNK.E' then do
  19.         name=left(name,length(name)-2)
  20.         if optcdisk="TRUE" then do
  21.           if right(path,1)~=":" then path=''path'/'
  22.           name=''path''name'_lnk.e'
  23.         end
  24.         else name='T:E/'name'_lnk.e'
  25.         if exists(name) then 'OPEN NEW 'name''
  26.         else 'REQUEST STATUS=" File has not been generated !"'
  27.       end
  28.       else 'REQUEST STATUS=" This file seems already to be an EPP output !"'
  29.     end
  30.     else 'REQUEST STATUS=" But.. E Sources names ends with '.e' ?!"'
  31.   end
  32.   else 'REQUEST STATUS=" But... there are no links in this source ?!"'
  33. end
  34. else 'REQUEST STATUS=" Text buffer is empty ?!"'
  35. 'UNLOCK'
  36. exit
  37.  
  38. syntax:
  39. say "Sorry, error line" SIGL ":" ERRORTEXT(RC) ":-("
  40. 'UNLOCK'
  41. exit
  42.  
  43.